home *** CD-ROM | disk | FTP | other *** search
/ Freesoft 1997 May / Freesoft_1997-05_cd.bin / inzer / minolta / drivers / WL400 / W3.1 disk 1 / COPYFILE.IN_ / COPYFILE.IN
Text File  |  1994-12-06  |  5KB  |  144 lines
  1. DECLARE SUB ActionInstall
  2. DECLARE SUB RemoveIniGarbage
  3. DECLARE SUB Install
  4. DECLARE FUNCTION AddOptFilesToCopyList (a%) AS LONG
  5. DECLARE FUNCTION AddFontFiles() AS LONG
  6. DECLARE FUNCTION InstallHostPCL() AS LONG
  7. SUB ActionInstall STATIC
  8. iAction% = 3
  9. DummyItem$ = "1"
  10. CursorSave% = ShowWaitCursor
  11. SetSymbolValue SYM_CREATING_FONT$, MSG_Action0$
  12. RemoveSymbol SYM_FONTSLIST$
  13. FOR i% = 1 TO iAction%
  14. AddListItem SYM_FONTSLIST$, DummyItem$
  15. NEXT i%
  16. sz$ = UIStartDlg(DLL_CUIDLL$, BUILDING_FILES, "SliderDlgProc", APPHELP, "FHelpDlgProc")
  17. RemoveIniGarbage
  18. ClearCopyList
  19. IF GetListItem(SYM_CUSTOMCHECKSTATES$, DRIVERFILES) = VAL_CHKON$ THEN
  20. SetSymbolValue SYM_CREATING_FONT$, MSG_Action1$
  21. sz$ = UIStartDlg(DLL_CUIDLL$, BUILDING_FILES, "SliderDlgProc", APPHELP, "FHelpDlgProc")
  22. dwI& = AddOptFilesToCopyList(DRIVERFILES)
  23. ELSE
  24. sz$ = UIStartDlg(DLL_CUIDLL$, BUILDING_FILES, "SliderDlgProc", APPHELP, "FHelpDlgProc")
  25. END IF
  26. sz$ = GetListItem(SYM_CUSTOMCHECKSTATES$, FONTFILES)
  27. RemoveSymbol SYM_FONTSLIST$
  28. IF (sz$ = VAL_CHKON$) OR (sz$ = VAL_CHKGREY$) THEN
  29. SetSymbolValue SYM_CREATING_FONT$, MSG_Action2$
  30. sz$ = UIStartDlg(DLL_CUIDLL$, BUILDING_FILES, "SliderDlgProc", APPHELP, "FHelpDlgProc")
  31. dwI& = AddOptFilesToCopyList(FONTFILES)
  32. GetFontFileList
  33. ELSE
  34. sz$ = UIStartDlg(DLL_CUIDLL$, BUILDING_FILES, "SliderDlgProc", APPHELP, "FHelpDlgProc")
  35. END IF
  36. IF GetListItem(SYM_CUSTOMCHECKSTATES$, SOUNDFILES) = VAL_CHKON$ THEN
  37. SetSymbolValue SYM_CREATING_FONT$, MSG_Action3$
  38. sz$ = UIStartDlg(DLL_CUIDLL$, BUILDING_FILES, "SliderDlgProc", APPHELP, "FHelpDlgProc")
  39. IF DoesIniKeyExist (WinDir$+INI_SYSTEMINI, INI_DRIVERS$, INI_WAVE$) = 0 THEN
  40. InstallSpeaker% = YES%
  41. END IF
  42. dwI& = AddOptFilesToCopyList(SOUNDFILES)
  43. ELSE
  44. sz$ = UIStartDlg(DLL_CUIDLL$, BUILDING_FILES, "SliderDlgProc", APPHELP, "FHelpDlgProc")
  45. END IF
  46. UIPop 1
  47. IF CursorSave% <> 0 THEN
  48. RestoreCursor(CursorSave%)
  49. END IF
  50. CursorSave% = 0
  51. sz$ = ""
  52. Install
  53. END SUB
  54. SUB RemoveIniGarbage STATIC
  55. RemoveFile WinSysDir$+"wpscomm.dll", cmoNone
  56. RemoveFile WinSysDir$+"wps.drv", cmoNone
  57. RemoveFile WinSysDir$+"wpsqp.dll", cmoNone
  58. RemoveFile WinSysDir$+"vjpd.386", cmoNone
  59. RemoveFile WinSysDir$+"wpsljvcd.386", cmoNone
  60. RemoveFile WinDir$+"wpsmain.hlp", cmoNone
  61. RemoveFile WinSysDir$+"vlexcomd.386", cmoNone
  62. RemoveFile WinSysDir$+"lexcom.dll", cmoNone
  63. RemoveIniKey INI_WININI$, INI_SPOOLER$, INI_QP$+INI_WPSPORT$, cmoNone
  64. RemoveIniKey INI_WININI$, INI_PRINTERPORTS$, "Lexmark Windows Printer", cmoNone
  65. RemoveIniKey INI_WININI$, INI_DEVICES$, "Lexmark Windows Printer", cmoNone
  66. RemoveIniSection WinDir$+INI_SYSTEMINI, INI_VJPD$, cmoNone
  67. sz$ = ""
  68. END SUB
  69. SUB Install STATIC
  70. SetSymbolValue SYM_RESOURCEBASENAME$, VAL_MAILMAN$
  71. sz$ = UIStartDlg(DLL_CUIDLL$, BB_MAILMAN, "FBBoardDlgProc", APPHELP, "FHelpDlgProc")
  72. CopyFilesInCopyList
  73. UIPop 1
  74. CursorSave% = ShowWaitCursor
  75. junk% = InstallFontNeedsReboot()
  76. IF GetListItem(SYM_CUSTOMCHECKSTATES$, DRIVERFILES) = VAL_CHKON$ THEN
  77. junk% = InstallHostPCL()
  78. END IF
  79. IF CursorSave% <> 0 THEN
  80. RestoreCursor(CursorSave%)
  81. END IF
  82. CursorSave% = 0
  83. IF RestartListEmpty() <> FALSE THEN
  84. junk% = SendMessage (-1, WM_WININICHANGED, 0, SECT_FONTINF$)
  85. junk% = SendMessage (-1, WM_FONTCHANGE, 0, "")
  86. END IF
  87. END SUB
  88. FUNCTION AddOptFilesToCopyList (ftype%) STATIC AS LONG
  89. dwI& = 0
  90. IF ftype% = 0 THEN
  91. AddSectionFilesToCopyList SECT_FONTINF$, SrcDir$, WinSysDir$
  92. dwI& = ClusterByte& * (GetListLength(SYM_TOTALFONTLIST$) + 1)
  93. ELSE
  94. sz$ = GetListItem(SYM_CUSTOMCHECKSTATES$, ftype%)
  95. IF (sz$ = VAL_CHKON$) OR (sz$ = VAL_CHKGREY$) THEN
  96. IF ftype% = DRIVERFILES THEN
  97. AddSectionFilesToCopyList SECT_DLLINF$, SrcDir$, WinDir$
  98. AddSectionFilesToCopyList SECT_HELPINF$, SrcDir$, WinDir$
  99. AddSectionFilesToCopyList SECT_DRIVERINF$, SrcDir$, WinSysDir$
  100. AddSectionFilesToCopyList SECT_PCL$, SrcDir$, WinSysDir$
  101. AddSectionFilesToCopyList SECT_PCL2$, SrcDir$, WinDir$+"wps\"
  102. AddSectionFilesToCopyList SECT_TESTPAGELIST$, SrcDir$, WinDir$+TestPageDir$+"\"
  103. dwI& = 5120
  104. ELSEIF ftype% = SOUNDFILES THEN
  105. IF DoesIniKeyExist (WinDir$+INI_SYSTEMINI, INI_DRIVERS$, INI_WAVE$) = 0 THEN
  106. AddSectionFilesToCopyList SECT_SPKRDRVINF$, SrcDir$, WinSysDir$
  107. END IF
  108. AddSectionFilesToCopyList SECT_SOUNDINF$, SrcDir$, WinSysDir$
  109. dwI& = 512
  110. ELSEIF ftype% = FONTFILES THEN
  111. dwI& = AddFontFiles()
  112. END IF
  113. END IF
  114. END IF
  115. AddOptFilesToCopyList = dwI&
  116. END FUNCTION
  117. FUNCTION AddFontFiles() STATIC AS LONG
  118. j% = GetListLength (SYM_FONTSELECTED$)
  119. dwK& = 0
  120. IF j% > 0 THEN
  121. IF (j% = 1) AND (GetListItem(SYM_FONTSELECTED$, 1) = VAL_ALL$) THEN
  122. AddSectionFilesToCopyList SECT_FONTINF$, SrcDir$, WinSysDir$
  123. j% = GetListLength(SYM_TOTALFONTLIST$)
  124. ELSE
  125. FOR i% = 1 TO j% STEP 1
  126. sz$ = GetListItem(SYM_TOTALFONTLIST$, VAL(GetListItem(SYM_FONTSELECTED$, i%)))
  127. AddSectionKeyFileToCopyList SECT_FONTINF$, sz$, SrcDir$, WinSysDir$
  128. NEXT i%
  129. END IF
  130. sz$ = ""
  131. dwK& = ClusterByte& * (j% + 1)
  132. END IF
  133. AddFontFiles = dwK&
  134. END FUNCTION
  135. FUNCTION InstallHostPCL() STATIC AS LONG
  136. sz$ = MSG_HOSTTITLE$
  137. sz2$ = MSG_HOSTCMD$
  138. CreateProgmanGroup sz$, WinDir$+"minolta.grp", cmonone
  139. CreateProgmanItem sz$, sz2$, WinSysDir$+PCLFP$, WinSysDir$+PCLFP$, cmoOverwrite
  140. ShowProgmanGroup sz$, 1, cmoNone
  141. dwK& = 0
  142. InstallHostPCL = dwK&
  143. END FUNCTION
  144.